home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / dosex / ex13.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  208 b   |  13 lines

  1. Program Example13;
  2. uses Dos;
  3.  
  4. { Program to demonstrate the EnvCount and EnvStr function. }
  5.  
  6. var
  7.   i : Longint;
  8. begin
  9.   WriteLn('Current Environment is:');
  10.   for i:=1to EnvCount do
  11.    WriteLn(EnvStr(i));
  12. end.
  13.